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MODULE dcx_compress ! Data compression routin 
Fe Om eT OA GUAGE (81 18832), pp acer hoa yer 
pean = ‘y 


1 
(1) 


MEW 


BEGIN 


‘ 
i eeeeeeeeererereereneneereneenerterererereeeeeeetreetereeeeeeeeeeeeneeeeeeer 
‘fn 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED. 


:* THIS SOFTWARE is gst UNDER A LICENSE AND MAY BE USED 

:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AN 
L 
E 


oO 
oO 


:* INCLUSION OF THE ay COPYRIGHT NOTICE. THIS SOFTWARE OR 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
:* a 4 5 NO TITLE TO AND OWNERSHIP OF THE SOFTWARE I 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. aeRPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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' 
0099 ALLE DLE AES CLAD IO CL | NMEA PRL E TEE RIOD A 
gi is 
0038 FACILITY: 
5 0035 DCX == Data Compression / Expansion Facility 
7 0039 i ABSTRACT: 
$ Bo88 } 
9 39 : The Data Compression / Expansion procedures provide a general 
29 Bpe9 ; method for reducing the storage requirement for a art rary data. 
: ak ; ENVIRONMENT: 
44 41! VAX native, user mode. 
$3 5 : 
4 boc? i 
48 ones : 
$3 $3 AUTHOR: David Thiel 
1 31 CREATION DATE: July, 1981 
2g 2§ i MODIFIED BY: 
4 054 i 
5 55 leo 
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ZSBTTL ‘Declarations’; 


1984 23:41:25 VAX-11 Bliss-32 V4.0-74 P 
198¢ 13:13:88 DISKSVMSMASTER: COCX.SRC COMPRESS.832;1° (25 


LIBRARY 
*sysSlibrary:starlet’; ! System macros 
REQUIRE | 
‘prefix’; ! DCX macros 
REQUIRE 
"dexdef'; ! DCX public structure definitions 
REQUIRE 
"dcxprvdef'; ! DCX private structure definitions 
EXTERNAL ROUTINE 
dex$ctx_check : Lkg_ctx_check, ! Check context block 
dcx$map_check : Lkg_map_check, ! Check map 
dcx$get_vm, ! Allocate memory | 


W ! Deallocate van 

$c xs long_move : Lkg_long_move NOVALUE, ! Copy arbitrary length data 
aPeceny r.dx : ! General string copy 

ADDRESSING_MODE (GENERAL); 


EXTERNAL LITERAL 
dcx$_normal, 


BVH SORNOUNF UNI ODE URODA 


09090908 NI NINN NNO 


C209 09 00 09 G9 09 C809 09 SININ SIN ININNIO OOO AOOAAOOUIN 
i a a a a a a a dd 
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dcx$_trunc, ! Resultant data truncated 
dcx$_invdata, ! Invalid character for bounded compression 
LibS_strtru; 
FORWARD ROUTINE ; 
fill _cmpseg, ! fill! in cmpseg structure 
se dcx$compress_init, ! initialize for data compression 
5 dcx$compress_data, ! compress data record 
86 dcx$do_compression_0 : ! internal compress routine -- type 0 
87 lkg_do NOVALUE, 
0488 dcx$compress_done; ! delete compression context 


es RESS 


95 
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IF .flags C.offset) 
BEGIN 
BIND 


fill_cmpseg - Fill in cmpseg structure 14-Sep-19 
rh} 1 ZSBTTL ‘fill.-cmpseg - Fill in cmpseg structure’ 
<3 1 evi ime fill.cmpseg (cmpseg : REF BBLOCK, offset, pos, bits : REF BITVECTOR, ptrs : REF VECTOR [, LONG]) = 
29g 5 M8 
494 : 
$22 Fill in cmpseg structure from map. 
199 i Inputs: 
+38 : 
4 : cmpse Address of structure to fill in 
209 ! offse Current offset in map substructures 
1 : os Number of bits decoded so far 
206 : its Address of bitvector holding encoding 
287 ptrs dcxsbm offset to cmpseg map 
05 Outputs: 
09 i cmpseg Encoding strings allocated and pointers 
Be } stored 
9 } Return value: 
§ i dcx$_normal ALL is well 
i Ras LibS_insvirmem Error allocating memory 
: : 
§ BIND 
dcxsbm = cmpseg Ccmpseg$l_dcxsbm] : REF BBLOCK 
8 flags = .dcexsbm + .dcxsbm Cdcxsbagu_flags : BITVECTOR, 
4 nodes = .dcxsbm + .dcxsbm Cdcxsbm$w_nodes] : VECTOR [, BYTE]; 
4 


SS 
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MEW SO OONOUS WN — 


SLL 


code = cmpseg Ccmpseg$l_code] : VECTOR C, LONG 
cmpseg_next = cmpseg Ccmpseg$l_next] : VECTOR 


LOCAL 
bitv 
char; 


as 

C, LONG); 
: REF VECTOR C, LONG], 

char = .nodes C.offset]; 

IF .dcxsbm Cdcxsbm$w_next] NEQ 0 


BEGIN 


BIND 
dcxsbm_next = .dcxsbm + .dcxsbm Cdcxsbm$w_next] : VECTOR C, WORD); 


cngeog nant C.char) = .ptrs C.dcxsbm_next C.char - .dcxsbm Cdcxsbm$b_min_charJ)] 


ELSE 
cmpseg next C.char] = .ptis CQ); 
perform (dcx$get_vm (4 + (.pos+7)/8, code C.char])); 


-11 sees Page 3. 
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fill -cmpseg - Fill in cmpseg structure 14-Sep-1986 $3: 13; § DISKSVMSMA 


4 pity fo , ce char); 
d Pabhove 
4 cH VE CC, pos??)/8, .bits, bitv (1)); 
ELSES iP nodes C.offset) EQ. 0 
THEN 
¢ BEGIN 
4 BIND 
8 5 code = cmpseg Ccmpseg$l_code] : VECTOR [C, LONG); 
2 5 LOCAL 
228 bitv : REF VECTOR C, LONG); 
560 ertore oo et.vm (4 + (.pos+7)/8, code Cdcx$c_eor])); 
0561 pity = ,cod J tdexSe eor); 
056¢ v C0} = 
0965 PASMOvE C, pos*?)/8, .bits, bitv (1)); 
0565 ELSE 
B68 BEGIN 
056 bits C.pos] = 1; 
£544 qrtorn CHUL -£mpseg (.cmpseg, 2*.nodes [.offset] + 1, .pos+1, .bits, .ptrs)); 
B28 erform” (fill_cmpseg (.cmpseg, 2*.nodes C.offset] + 0, .pos+1, .bits, .ptrs)); 
B2r8 RETURN dex$_nornal:; 
057 ; 
0574 1 END; ! of fill_cmpseg 
-TITLE OCX_COMPRESS 
-IDENT \V0%-000\ 
-EXTRN LIBSANALYZE_SDESC_R 
~EXTRN DCXSCTX_CHECK SERSRAP CHECK 
-EXTRN DCXS$GET~ vn" DCXSFREE 
-EXTRN DCX$LONG. MOVE LIBSSCOPY _R_DX 
-EXTRN DCX$_NORMAL, DCX$_T 
-EXTRN DCX$~ INYDATA, (ies. STRTRU 


~PSECT S$CODES,NOWRT,2 
O1FC 00000 eon cata? 


ORD Save R2, R3, R4,R5,R6,R7,R8B : 

57 04 AC pO 00002 OVL CMPSEG. R? : 

1 0c A? 00 90006 OVL  12(R7). R1 : 

é 06 Al 3C OOOOA MOVZWL (RI), Re : 

08 Ail 3¢ 0000 MOVZ2WL &(R1). R : 

0 51 0 0001 ADDL2 RI, rb : 

6 0c AC OD 001 MOVL POS, R6 ; 

10 ac 00 00019 MOVL BITS, RB ; 
51 6241 08 AC €1 0001 BBC OFFSET, (R2)CR1), 3$ ; 
0 BC40 9A MOVZBL @OFFSETCROJ, CHAR ; 

52 9 02 78 SH 2 CHAR Rd ; 
OA A 36 00 ¢ MOV2WL 10¢R1), R3 ; 

19 a s:$ : 
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227 bytes, Routine Base: S$CODE$ + 0000 


; Routine Size: 


13 
DCK_COMPRESS 1S-Se $1984 23:41:25 VAX-11 Bliss-32 V4.0-74 P 
vOu2000 dcxScompress_init = Initialization for data com 12-80-1382 $3545: 83 DLSKSVMSMASTER COCK SRCICOMPRESS 832047" (aS 


: i? Le } ZSBTTL ‘dcxScompress_init - Initialization for data compression’ 
ip 8 GLOBAL ROUTINE dcx$compress_init (context_addr, map_addr) = 
; «(181 7 BEGIN 

; : ¢ 1e4 

. ' 

3 1 i ! Initialization for data compression. 

3 : 5 é ¢ Allocate and initialize context area. 

; #18 : $84 ! Inputs: 

; 188 585 : 

; 189 288 : context_addr.mz.r Address of context longword 
3 139 4 } map_addr.ra.r Address of map 

: 136 589 ' Outputs: 

s 1 590 ' 

; 194 591 : context_addr.mz.r Address of context block is stored 
; 195 8238 ! 

> 196 823 ! Return value: 

3s 197 594 ; 

; 198 0595 } status.wlc.v 

: 199 9238 : 

: 200 059 ! dcx$_normal ALL is well 

; 201 0598 ! dcx$_invmap Invalid map structure 

; $08 0599 } LibS_insvirmem Error allocating memory 

; $8 0600 loo 

; 204 0601 

3 6209 060 BIND 

; 206 060 ctx = .context_addr : REF BBLOCK, ! address of context block 
3 sor 0604 dcxmap = .map_addr : REF BBLOCK; ! address of map 

; 208 0605 

; 209 060 LOCAL 

; 210 060 ptrs : REF VECTOR C, LONG], 

3 ett 0608 cmp : REF BBLOCK 

i gle 0609 cmpseg : REF BBLOCK, 

; a 0610 dcxsbm : REF BBLOCK, 

3 $i¢ 3h status : LONG; ! return status 

; 216 $618 ctx = 0; ' assume failure 

; 217 pele perform (dcx$map_check (.dcxmap)); ! validate map 

: 218 615 perform (dcx$get_vm (ctx$k fixed_len + Capes lon th, ctx)); 
3; 219 B616 ctx (ctx$l_size)”= ctx$k_fixed_lén + cmp$k_léngth; 

; 220 1 ctx (ctx$b_type] =_ctx$c_cmprs; 

: 1 ol8 ctx Coxsy_vers on] = ctx$c_version; 

3 ¢ 1 ctx tctx$l_sanity] = ctx$c_Sanity; 

; 0 ctx Cctx$l_map) = .dcxmap; 

3 226 1 2 cmp = ctx Cotx$l specified: 

3 5 6 § cmp Ceomp$l_flink] = cmp Comp$l_blink] = cmp Ccmp$q_queue); 
3 $ perform (dcx$get_vm (4*.dcxmap Cdcxmap$w_nsubs], ptrs)); 

: 4 dcxsbm =, Camep + Se Cdexnap$u_ subd; 

; 8 5 INCR i FROM 0 TO .dcxmap Cdcxmap$w_nsubsJ-1 DO 

3 $9 $ perform (dexSget_va (cmpsegdk_length, ptrs C.i))); 

: 3) 3 cmpseg = .ptrs (C.iJ; 

3 ; insque f.capseg -cmp_Cemp$l_blink]); 

3; 2 650 cmpseg (cmpseg (_size) = cmpseg$k_length; 

3; 234 0631 cmpseg [cmpseg$l_dcxsbm) = .dcxsbm; 


Si aS RES See es. oe a eh Rg ig ia 


DOCK. RESS 1b-se $1984 23:41:25 VAX-11 Bliss-32 V4.0-74 P 
vOu2000" dcxScompress_init = Initialization for data com 12-808=138e $3:45:8 DL SKSVMSMASTER COCK. SRCICOMPRESS.B3204°° as 
; 5 § gexete = .dcxsbm + .dcxsbm Cdcxsbm$w_sizel; 
3 4 cmpseg = .cmp Ccmp$l_flink); 
; 5 @ WHILE .cmpseg NEQA cmp Ccomp$q_queue) 00 
: § BEGIN 
: 260 
3 4) 6 3 LOCAL 
: 2g 8 bits : VECTOR C(dcx$c_chars-1+7)/8, BYTE); 
: 264 1 CHSFILL (0, ZALLOCATION (bits), bits); 
; 245 rk bits E53 = 1; 
; 4g 643 r torn (ti l_cmpseg (.cmpseg, 1, 1, bits, .ptrs)); 
: 268 645 ertorm (fill_cmpseg (.cmpseg, 0, 1, bits, .ptrs)); 
; 49 646 . seg = senpteg tenpsegsi. tink’: e 
; 2] pee8 perform (dcx$free_vm (4*.dcxmap Cdcxmap$w_nsubs), .ptrs)); 
H URN dcx$_normal; 
38 8e30 RETURN dcx$ l 
; 255 0652 END; ! of dcex$compress_init 
O3FC 00000 ENTRY Pe NSLOMPRESS INET, Save R2,R3,R4,R5,R6,R7,- ; 0577) 
59 00006 CF 9 90002 MOVAB ODCXSGET_VM, R9 : 
f 24 C2 0000 SUBL2 #36, SP 3 
5 08 AC 00 QOO0A MOVL MAP_ADDR, R8 3; 0604 
06 BC D4 Bane CLRL @CONTEXT_ADDR : 0613 
52 68 0 0001 MOVL (RB), _R2 ; 0614 
5 5 0014 MOVL Re, RO 3 
00006 30 00017 BSBW  DCXSMAP_CHECK ; 
5A 50 €9 OOOIA BLBC T é 
04 AC DD 00010 PUSHL  CONTEXT_ADDR : 0615 
1¢ Dd 000 PUSHL @# FH 
69 9¢ 44 00 CALLS #2, DCXSGET_VM F 
4F 3 99 BLBC STATUS, 2$ : 
56 04 BC DO MOVL asonte ty ADDR, R6 3; 061 
86 1c 00 38 C MOVL » (ROS+ 3 
86 01 90 F MOVB #1, (R6)+ ; 061 
03 Abd B4 0 é CLRW 38g) ; 061 
07 Ab 4F317C6 F DO MOVL #1328643173, 7(R6) ; 061 
OB A6 2 0 88 D VL Re 11(R6) : 06 
56 - OF C 41 ADDL2 #15, CMP : 06 
04 A6 6 OD 44 VL CMP, 4( CMP) 3; 06 
66 6 D 048 VL CMP, (CMP) é 
1) 4B PUSHL SP ; 0622. 
0 10 A 4 4D MOVZWL 16(R2), RO : 
7E 0 ASHL #2, RO, -(SP) 3 
9 44 CALLS @ ae: ae 3 
é BLBC status, ; 
12 =A 3 8 MOVZWL (R2), OCXSBM 3; 0624. 
5 f f ADDLc  =6R Byam : 
4 10 A2 3¢ 00062 MOVZWL 16(R2), R4 ; 0625 


13 
DCX_COMPRESS 18.52 -1984 23:41:25 VAX=11 Bliss-32 v4.0-7%4 P 
you2000 dcxScompress_init = Initialization for data com 14-$ ats $3:45:8 DISKSVMEMASTER COCK SRCTCOMPRESS.B3207 7° «af 
52 1 MNEGL #1, 1 : 
00 wef i $3 18 BReHAL aPTRSCIJ : 0627 
7 0814 F Rt MOVZWL #2068, -(SP) : 
: FS 4 CALLS @# DEXSGET_vM : 
A E 77 2% BLBC =—_- STAT ; 
57 00 BE42 DA OO07A MOVL  @PTRSLI), CMPSEG + 0628 
4 86 ? O€ 0007F INSQUE (CMP EG). a4(CMP) ; 0629 | 
8 A 0214 8F ¢ ; MOVZWL #2068, B(CMPSEG) + 0630 | 
C A? : p MOVL  DCXSBM, 1 (CHPSEG) : 0631. 
$3 3 0 MOVZuL (OCKxSBA) R : 0632. 
D4 4 € 0038 3$: AOBLSS R4, I, 1 : 0625, 
$ D 909 MOVL (CMP). CMPSEG > 0634. 
6 D1 OOO9A 4$: CMPL  CMPSEG, CMP + 0635 
9 13 0009D BEQL © 6$ ; 
20 00 6E 00 2C 0009F MOVCS #0, (SP), #0, #32, BITS + 0641 
04 AE OOA4 ; 
04 AE 01 90 0006 MOVB = #1, BITS + 0642. 
6E bb OOAA PUSHL  PTRS + 0643) 
08 AF F OOOAC PUSHAB BITS : | 
DD OOOAF PUSHL #1 ; 
1 0D 00081 PUSHL : 
7 OD 0085 PUSHL  CMPSEG : 
FE63 cF 03 FB 0008 CALLS #5, FILL_CMPSEG ; 
7 0 E OOOBA BLBC STATUS, 7$ : 
04 AE 94 00080 CLRB = BITS + 0644. 
6E DD 000C PUSHL PTRS > 0645. 
08 AE 9F 000C PUSHAB BITS : | 
01 DD 000¢ PUSHL : | 
43 D4 QO0C CLAL =(SP) 3 
57? DD 0009 PUSHL  CMPSEG : 
FEGD CF 05 FB 90¢ CALLS #5, FILL_CMPSEG ; 
é1 0 .€ 9000 5$ BLBC STATUS ; 
7 67 00 0000 MOVL (CMPSEG), CMPSEG + 0646 
C2 11 9906 BRB 4$ + 0635 
6E DD 00008 6$ PUSHL + 0648 
50 68 00 OOODA MOVL (RB), RO : 
51 10 AQ 3¢ 00000 MOVZWwL 16(RO), RI ; | 
51 0 OO0E| ASHL a3. R1, =(SP) : 
00006 CF g FB 00E5 CALLS #2, DCXSFREE_VM : | 
97 E QOEA BLBC STATUS, ; : 
0 000000006 8F DO O00ED MOVL § #DCX$_NORMAL, RO > 0650. 
04 O00F4 7$: RET > 0652 | 


3; Routine Size: 245 bytes, Routine Base: S$CODE$ + 00E3 


OE SORPRESS 


dcxScompress_data - Compress data record 14-Sep-1984 
; 1 ZSBTTL ‘dcxScompress_data - Compress data record’ 
1 GLOBAL ROUTINE dcx$compress_data (context_addr, in_rec 


5 


ARRAS: 
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> ie 


Sese 


Se 
ae 


2 


SSe 


SESSSSSOSS 
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SSNS 
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1 
5: 


BEGIN 


44 


' Compress data record 


Ing:te: 
context_addr.mz.r Address of context longword 
nrec.rt.dx Descriptor for input (text) data record 
out_rec.wt.dx Descriptor for output (text) data buffer 
Outputs: 
context_addr.mz.r Context block accumulates data 
out _rec.wt.dx Buffer is filled with output record 
out_len.wwu.r Word in which to store length of 


output record (optional) 
Return value: 


status.wic.v 
dcx$_normal ALL is well 
dcx$_invctx Invalid context block 
dcx$_invmap Invalid map 
BIND 
ctx = sbentens 20er : REF BBLOCK, ! context block 
dcxmap = ctx (ctx$l_map) : REF BBLOCK, ! map address 
res_len = .out_len : WORD; ! result length 
LOCAL 
in_len, ! input length (bytes) 
in_addr, ! input data address 
statusd, 
status; ! return status 
BUILTIN 
NULLPARAME TER; 


perform (dcx$ctx_check (.ctx, ctx$c_cmprs)); 

perform coc xemep check (.dcxmap)); 

perform (LibSanaTyze_sdesc_r2 (.in_rec; status2, in_ien, in_addr); .status2); 
CASE .out_rec CdseSb lass] 


¢ 
FROM MIN (dsc$k_Class_z, dsc$k_class_s) 
19 MAX (dsc$k_cTass_z, dsc$k_class_s) 


ET 
Poscsk class_z, dsc$k_class_s]: 
BEGIN 


LOCAL 


2.V4.0-74 Pa 9 
DISKSVMSMASTER: CDCX.SRC COMPRESS.832:1" (5) 


: REF BBLOCK, out_rec : REF BBLOCK, out_len) = 


13 
) PRESS 4.33 -1984 41:25 VAX-11 Bliss-32 V4.0- Pa 1 
MO4=000 dcxScompress_data - Compress data record 12-88-1938 93:91:82 DISKSVMSMASTER: tbe Ci SRCTCOMPRESS.83254 _ 3S 
; Q 4, result : LONG; 
; § 71 ecxBée compression. 0 ¢ 
3 : i? secstiae: a0der (s3 -in.len, .out_rec Cdsc$a_pointer], .out_rec Cdsc$w_length] 
3 : u 
: 715 cust it ( out Cdsc$w_length] -. = interJ+ : 
! é ri Gor A t amtpanind te rec sc$w_length) result, .out_rec Cdsc$a_pointer]+.result) 
3 1 71 KEN 
: ¢ rs res. len = .result; 
; ¢ ; Cinrange. outrange): 
: § 7 § LOCAL 
; 8 724 result _: LONG 
3 9 725 status! : LONG 
: : 4 $ res_buf : VECTOR (65535, BYTE]; ! result buffer 
; ¢ 0728 dcx$do compression. 0 ( 
3 0729 Ctx. . in_addr :* len, res_buf, ZALLOCATION (res_buf) 
3 0730 $3 chews. “pesults: 
3 5 3 1 status! = Libs escopy r “dx (result, res_buf, .out_rec); 
3 7 ; IF .status? EQL Lib$_Strtru 
3 7 07 THEN 
; 338 0734 4 BEGIN 
: H 4 5 : aa” NULLPARAMETER (4) 
: 1 07 $ 4 LibSanalyze sdesc_r2 (.out_rec; status, res_len); 
: ; sf : ? ptatus! = dcx$_frunc;” 
: 344 0740 hen IF NOT NULLPARAMETER (4) | 
; $ O44 s_len = .result; | 
: rtf Betz IF NOT 7Status! AND atetus 
: 349 0745 status = .status!; 
: 9 ores TES; me 
: 35 0748 2 RETURN .status; 
» 0749 
3; 6354 0750 1 END; ! Of dcex$compress_data 
| 
O1FC 00000 ENTRY eo DATA, Save R2,R3,R4,R5,R6.R7.- ;: 0655 | 
58 000000006 00 9€ 0000 MOVAB LIBSANALYZE_ sD SDESC_R2, R8 : 
E FFFEFFFC FF 9 pr day | 40(SP : 
52 06 8c C 1 ADDL ne SCONTEXT. ADDR, R2 : 0685 | 
1 01 90 0001 MOVL ; 0697 | 
0 04 BC p 1 MOVL acOnText ADDR, RO ; | 
00006 1C BSBW DCXSCT x_CH ECK 3 | 
Of E 1F BLBC STATUS, 1$ 3 
0 8 be $8 MOVL (R2), 3; 0698 
00006 BSBW DCXSMAP_CHECK ; 


13 
a 1984 23:41:25 VAX-11 Bliss-32 V4.0-74 Page 11. 
your000 dcxScompress_data - Compress data record 12280871384 93:43:83 DL SKSVMGMASTERSLDCK  SRCTCOMPRESS.B3204 3) 
50 €9 8 BLBC = STATUS, 1$ F 
MOV IN_REC, RO ; 0699 
38 2 e§ if ? meee LIBSANALYZE_SDESC_R2 : 
01 FP } 1$: aLas STATUS, 2 i 
53 o¢ i 0 3 2s: MOVL oh REC, R3 ; 0701) 
AS BF CASEB 3(R3), #0, #1 ; 
“8 003s 007 8 — 3$: WORD iri : | 
F 4 MOVZWL #65535, -(SP) + 0728, 
” roe 1 3 rh PUSHAB RES_BUF : | 
i DOD Ota PUSHL IN_CEN 3 0729) 
x $e 3 00K PURE INADA | 
0000v CF : F with CALLS as. DCXSD0_COMPRESSION_0 F 
gf 0 pO 0065 MOVL RO, R : 
6E 1 00 000 § MOVL 1, RESULT ; 0728 
3 OD bose PUSHL R3 ; 0731, 
08 AE OF 0055 PUSHAB RES_BUF : 
08 AE OF 0906 PUSHAB RESOLT : | 
000000006 00 : FB 00064 CALLS #3, LIBSSCOPY_R_DXx : 
9? 85 DO 00068 MOVL RO, STATUS : 
000000006 8F 54 «(OI 090 CMPL STATUS! #LIB$_STRTRU : 0732 
ie 32 ooors = ueg BS pss 
- Ti TF 007A BLSSuU 4$ * ; | 
10 ac v3 boore TSTL 16¢AP) : 
oF bd S008 Sot ORS, RO : 0737) 
” 68 16 C0084 JS LIBSANALYZE_SDESC_R2 ; 
10 37 24 DO $008 MOVL R1, @OUT_LEN : 
Bf 000000006 af D0 90080 4$: MOVL #DCX$_TRONC, STATUS1 : 0738 
04 gE ot Goose 58: fnee SAPD, a6 0740 | 
09 1F 00099 BLSSU 6 : 
eM Fie ge gg” pe 
MOVW § RESULT, @OUT_LEN : 074 
"if BABS BB iets aos 
33 : 06 00 AA ROVL TATUS{, STATUS ; 0745 | 
7E a3 3C OA 7$ MOVZWL (R3), =(SP) : 0713 | 
04 rt DD 5 B PUSHL 4(R35 : 
51 DD 0085 PUSHL IN_LEN : 
« be BB Oboes PUSHE — ACONTERT_ ADDR : | 
0000v CF Bs F BC CALLS #5, DCXSDO_COMPRESSION_0 2 | 
ee 1 en a Bo 
;Bie ue ebm, jams) 
50 20 te : é sé : seek g Pi (SP), #32, RO, @4(R3)CRESULT) : | 
48 ; 
€ 91 000D CMPB «CAP, #4 : 0716) 
" 85 ?} 0D BLSSU 8S ; 


oer of QPRESS 


; Routine Size: 


dcxScomaress_data - Compress data record 


231 bytes, 


10 Bf 


Routine Base: 


ve. 


SCODES + 0108 


He 


1982 93:43:83 BEd UwGna$t 


eeit 


mov 
MOVL 
RET 


ae 


RESULT, aguT_LEN 
STATUS, R 


ER CbCK SRCICOMPRESS. p329%" «35, 


13 
DCK_ ESS 1$-se $1984 23:41:25 VAX-11 Bliss-32 V4.0-74 Page 
vou2000 dcx$do_compression_0 - Type 0 compression 12-305-1984 $3:45:8 DLSKSVMGMASTERSLDCK SRCSCOMPRESS.8320 4° ( 
; q 1 1 ZSBTTL ‘dex$do_compression_0 - Type 0 compression’ 
; 7 : 1 ROUTINE dcx$do sreresston 0 <« 
3 754 «1 ctx : REF BBLOCK, Tn_addr : REF VECTOR C, BYTE], in_bytes, out_addr, out_bytes 
3 755 «1 ; status, res_len) : Lkg_do NOVALUE = 
; 7 : BEGIN 
: ren Si” 
3 £28 ; Compress data record using type 0 compression. 
: 761 i Inputs: 
; 166 : 
3 76 : ctx Address of context block 
3 764 : in_addr Address of input record 
; 765 ‘ in_bytes Length of input record 
; 07 ! out_addr Address of output buffer 
3 y ooee out_bytes Length of output buffer 
3 0769 ! Outputs: 
3 q 0770 ! 
3 6 0771 : ctx Context block accumulates data 
; 7 077 : status Status of operation 
3 077 : res_len Result Length 
; 379 0774 : 
; 0775 ! Status value: 
; $8) 0776 : 
3 5g 0777 : dcx$_normal ALL is well 
; 0778 § : dcx$_trunc Result buffer too small - output truncated 
; 384 0779 feo 
; 385 0780 
; 0781 BIND 
3 wer 078 dcxmap = ctx Cctx$l_map] : REF BBLOCK, ! map address 
3 $60 Ber cmp = ctx (Cctx$l_specific] : BBLOCK; 
; 390 0785 IF .dcxmap Cdcxmap$w_nsubs) EQL 0 
; 391 g7e8 THEN 
: 392 078 BEGIN . 
; 393 O780 dcx$long_move ((res_len = MINU (.in_bytes, .out_bytes)), .in_addr, .out_addr); 
: 394 789 IF .in bytes GTRU .out_bytes 
3s 395 0790 
: 396 0791 RETURN status = dcex$_trunc 
3: 397 443 LSE 
: 398 79 RETURN status = dcx$_normal; 
; I 794 ND 
: 400 795 ELSE 
3; 401 736 BEGIN 
; 40 79 
; 40 738 LOCAL 
: 4046 7 capseg : REF BBLOCK, 
: 405 800 outbits : LONG, 
: rey 801 outptr : LONG; 
3; 40 0. ¢ 
: 408 outbits = .out_bytes * 8; 
: 2% 08 omeeee © cmp ConpSt_f link? 
3 cmpseg = .C c _flink); 
> 411 06 DECR Y FROM ni “bytes-t To 6 oo 
: 412 07 ¢@ BEGIN 


ola 


ed 


7-H 


oer: 


Be Se Se Se Ge Ge Se Se Ge Se Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Se ve Se Ss Se Se Se Se Se Ss Ge Se Se Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Ss Se Se Ge ee 


J 5 


ONAVSWN—OVOONOUIE Ww 


SSNs 


Dek teh tek kk kee ee ee el ed ll 


SREP LEE ESE 
BUSA eu 


SSSVSUTUSS 
=—OO0OnNOufunr— 


SELLE LLL EE ES 
ooo 


1 
15-Sep- 2:41:25 VAX-11 Bliss-32 V4. Pa 
dcx$do_compression_0 = Type 0 compression 12780571986 $3594: DI SKSVMSMAST ER: (DCX. OSRCSCOMPRESS.B3204 - 
0 
0 IND 
1 next = cmpseg [cmpseg$l_next] : VECTOR Et Lone ° 
1 code = cmpseg capse $\- goge : VECTOR 
code_ptr = code CCHSRCHAR (. in_addr) REF OvectoR C, LONGI; 
1 LOCAL 
15 bit -src : Nowe VECTOR C, LONG], 
1 bit. 
SB IF te tr EQLA 0 
-code_ptr 
0819 THEN ” 
0 BEGIN 
88 1 res_len = 0; 
3 § A status = dcx$_invdata; 
0824 pi count = scode 7PEy C0); 
0825 bit_src = code_p 123 
$6 § iF outbits = eutb ts'- -bit_count) LSS 0 
0828 BEGIN 
0829 res_len = (.outbits+7)/8; 
$e 9 RE TORN status = dcx$_trunc; 
O32 WHILE .bit_count GTRU 32 DO 
083 BEGIN 
Oat (,out_addr) <. eutetr. 32, 0> = .bit_sre [0]; 
0835 bit _sre = bits + 4; 
+t] outptr = “outer " 32; 
oes count = .bit _count - 32; 
083 (.out 9 t. outptr, we acount. 0> = .bit_srec (0); 
outptr = .outptr bit 


ARERR EE RRR 


PAA 
NO OOVNOAUE WN “OC ODNOUE WN" O0On 


SGOOOoCOoCoooooooo 


Pot ot ot ot ot ot ot ot ot ot ot ot ot or or rr eS ew oo ee oe oe oo oe oP oo oe oF 


cmpseg = next ECHSRCHAR Ae tia addr); 
if .cmpeeg EQLA 0 


res_len = 0; 
hh status = dcx$_invdata; 


BIND 
code = cmpseg ([cmpseg$l_co e] : VECTOR C, LONG], 
code_ptr = code (dcx$c_eor] : REF VECTOR C, LONG); 


LOCAL 
bit src : REF VECTOR C, LONG), 
bit” “count; 


src = code_ptr (1); 


t. count = .code_ Pet £0); 
outbits = Toutbits - .bit_count) LSS 0 


z—~ 


14 
(6) 


a eee 


{Sse 


Se Se Ge Ge Oe Ge Ge Se Ge Ge Geese SSeS Se Se Sees 
SOoooooocoo: 

9 G0 Co C9 C9 C9 CD. CD CD CD CD 

fo Jo Je Te] —~ 


04 
04 


14 


14 


14 


1 
res_len = (.outbits+7)/8; 
RETORN status 


END 
WHILE .bit_count GTRU 32 DO 

BEGIN 
tptr, 32, 0> = .bit sre (0); 
re + 4; 


outptr = .out 
bit_count = .bit_count - 32; 


(.out_addr) <.outptr 
Boot = .outptr + 


es_len = (.outptr + 7)/8; 
A status = dcx$_normal; 


-bit_count, 0> 
_ n ° 


O3FC 00000 DCX$D0_COMPRESSI 
WORD 


NPOPVMPovirw?ror—— 
_" 
ad 


ADOMDWOM FOOMMOON FO 
SOQOoCooooooooooo 
Settee te ree eee 8 + | 


~ 
an 


—— OF 
tod 
~ 


Wo 


ST sn 4) 4 a 


vw 
on 
—NMOMOWOS & “OO f£D— S “OOOO -OMmuoo— 


SOOOCOGOSOOOSOOOSCOSOOOOOSOOOOSOOSOOOSoSoSoO: 


O09 -9 0-900 Niw-Owoo7o90-c0°0--9°9 


SOOoOOoOooooooooo 


SoOoOOooOooCoooooSoSo 


13 
1eeSep-1984 23:41:25  VAX"11 BLiss-32_ v4.0 
yaneeetfeRe F3iFhi8s | Na ebisecz2 445° 


ebit sre (0); 


! Of dcx$do_compression_0 


ON_0: 


Save 85 Po Bt RS ROA BOW 


= 
_ 
. 
. 


IN_BYTES, RO 

RO; OUT_BYTES 
OUT_BYTES, RO 

RO, RES LEN 

RB, 

IN-ADDR, R1 
DCRSLONG_MOVE 

IN BYTES: OUT_BYTES 


1$ 
#5, OUT BYTES, OUTBITS 
(R4), CMPSEG 

N_BYTES, I 


@IN_ADDR, R1 
TOOCCMPSEC) CRI. R1 
(R1)+, BIT_COUNT 

B11 COUNT. “ouTBITS 


7(R3), RS 
He R5, RES_LEN 


~ 


reg 
RCJCOMPRESS .B32 


PeSe Se Se Se Se Se Se Se Se Ge Ge Ge Se Fe Se Se Se Fe Fe Fs Se Be Se Be Se Se Se Se Se Se Se 


—— 


; Routine Size: 237 bytes, Routine Base: S$CODE$ + O2BF 


14 | 
DCK_ Ess 18-46 =1984 41:25 VAX-11 Bliss-32 V4.0-74 Page 16. 
vouzo00 dcx$do_compression_0 = Type 0 compression 12-80 8= 1882 93:45:82 DLSKSVMSMASTERSLDCK  SRCSCOMPRESS.B32°4° by 
20 6 1 00068 48: CMPL | BIT_COUNT, #32 : 0832 | 
D $ BLEGU : | 
48 20 : ES . INSV.  (BIT_SRC)+, OUTPTR, #32, (RB) + 0834 
9 CO 0007 ADDL #32, OUTPTR : 836 
5 C2 0007 SUBL2 #32, BIT_COUNT : 83 
a 1 0078 BRB 4 : 08 : 
a. 56 3 § FO 007D 5$: INSV. (BIT SRC), OUTPTR, BIT_COUNT, (RB) > 083 
é f 00 ADDL2 BIT_COUNT, QUTPTR * 0840 
1 08 6C 9A 0 MOVZBL @IN aR + 0841 
9 ac D 089 INCL iN ADOR 3 
54 A441 D0 0008C MOVL 6TCMPSEG)CR1], CMPSEG : 
08 1 009 BNEG 46s 7$ ; 0842 
D 93 6$: CLRL = RES LEN ; 084 
50 000000006 BF 00 009 MOVL OCR _INVDATA, STATUS + 0846 
48 11 0009¢ BRB 12 : 
AC 59 F4 O09 7$: SOBGEQ I, 3$ + 0806 
51 0810 04 DO OO0A MOVL.  @2064(CMPSEG), BIT_COUNT + 0861 
54 0810 cs 4 C1 000A6 ADDL3 #4, 2064(CMPSEG), BIT_SRC : 086¢ 
3 1 €2 000AC SUBL2 BIf_COUNT, OUTBITS : 086 
19 18 OOOAF BGEO F 
53 07 CO 00081 ADDL2 #7, R3 + 0866 
57 08 C7 000B4 DIVL3 #8, R3, RES_LEN ; 
50 000000006 BF 00 00088 8S: MOVL  #DCX$_TRUNC> STATUS + 0867 
e8 11 0008F BRS 1 ; 
20 1 01 990¢1 9$: CMPL  BIT_COUNT, #32 + 0869 
Op 1B 0004 BLEGU 10$ ; 
7. 20 52 4 FO 00066 INSV 8 T_SRC)+, OUTPTR, #32, (RB) + 0871 
5 20 ¢0 000CB ADDL2 #32, ~OUTPTR + 0873 
51 20 C2 O00CE SUBL2 #32, BIT_COUNT : 0874 
EE 11 90001 BRB 9$ : 0869 
rs. 51 52 64 FO 000D3 10° INSV.  (BIT_SRC), OUTPTR, BIT_COUNT, (R8) : 0876 
52 51 CO 00008 ADDL BIT COUNT, OUTPTR : 0877 
52 07 ¢O 000DB ADDL2 #7,7R + 0879 
57 38 08 (7 OO0DE DIVL3 #8, R2, RES_LEN ; 
000000006 8F DO O00E2 118 MOVL #DCX$_NORMAC, STATUS : 0880 
51 57 00 O00E9 12$ MOVE R7, RT : 0883 
04 OO0EC RE ; 


14 | 
DCK_ RESS 1$-5¢ $1984 23:41:25 VAX-11 Bliss=-32 V4.0-74 7 
von2000" dcx$compress_done -- Release data compression c 12-808= 1386 $3345: DLSKSVMSMASTER COCK. SRCICOMPRESS.B3204°° B 


re 4 1 ZSBTTL ‘dcx$Scompress_done -~ Release data compression context’ 
49 GLOBAL ROUTINE dcx$compress_done (context_addr) 
49 BEGIN $ > * a 
494 144 
495 . 
£33 ! Release data compression context data record 
i Inputs: | 
context_addr.mz.r Address of context lLongword 
i Outputs: 


1 
' 
' 
! 
' 
! 
' 
1 
' 
context_addr.mz.r Context block accumulates data 
Return value: 

1 

1 

' 

1 

' 

i) 


status.wic.v 
dcx$_normal ALL is well 
dcx$_invctx Invalid context block 
9 dcx$_invmap Invalid map structure 
0908 
0909 BIND 
0910 ctx = .context_addr : REF BBLOCK ! address of context block 
cmp = ctx CctxSl_specific) : BBLOCK; 
LOCAL 


cmpseg : REF BBLOCK; 
per iere (dex$ctx_check (.ctx, ctx$c_cmprs)); 
way remque (.cmp Comp$(_flinkT, cmpseg) DO 


BIND 
code = cmpseg Ccmpseg$l_code] : VECTOR C, LONG); 


DECR i FROM cmpseg$c_code-1 TO 0 DO 
BEGIN 
BIND 
bits = code (.i] : REF VECTOR C, LONG); 
IF .bits NEQA 0 
THEN 


BEGIN 
per sore, (éexetrasve (4 + (.bits (0)+7)/8, bits (0])); 
_— END; 
erform (dcx$free_vm (.cmpseg Ccmpseg$l_size], .cmpseg)); 


DOOOOOVOOOOOOVOVOOOOOOOOOOOO 


WAAL AAI AIP PIPOPOPU NIN NUNN 4 SO Ot Ot Oo 


Be Se Se Se Se Se Se Se Se Se Se Se Ge Se Fe Se Ge Fe Ge Ge Fe Ge Sy Ge Fe Ge Se Ge Se Se FF Se Ge Ss Se Se Fe Ge Se Ge Se Se Se Se Se Ge Se Ge See Se Se Sees tease 
o 
ONAVSWN —"OVOnNOuUfwn—-OV0e~ Auwoose 
OoOooooooooso 
wooooooowow 
NOUS —O O00 MEW Ooo wn 
RIP IIHS HTB BB BEE BE MMII PIPPIN NPIAINPIPIPUPIPIPIPIPIPIPONIPIPIPOPURIPURSPIPOPEPININY SS 


A Pint HOODOO NO UE UNI OOO NAME noe 


perform (dcx$free_vm (.ctx Cctx$l_size], .ctx)); 
ctx = 0; ! mark context as gone 
RETURN dcx$_normal; 


DYDD PUP DV DUS DV PULPV DVD SDUDVIUIVLULVUSUSVSUSVSUSVSV SVS SUSU TSS SISTINE 
SOSSOSSSSOSOOOSOSOOOOSOOSOOOSOOOSOSSSoS 


SLL Ew 
Ounfwnr—oo 
oooono 
Ww 


ooo~ 


ss-32 V4.0-74 o 18 
SRCSCOMPRESS.83203°" (oS 


STER: COCK. 


! Of dcx$compress_done 


dcx$compress_done -- Release data compression ¢ 


x -SORPRESS 


) 
Vv 


oo O-oO ~ MO cy MMmo co oorw 
no S<e— - nN ™ mor mm Mwy 
o oon ooo fo oon Co Coon 
So ooo o oo oO ooo o ooo 
Sd Mt Mei Me Md Bt ed Med Med Me Mi Bed Bed Bek Sed ed te te ed ted ed ek ed eh eh ee ee oe oe oe oo ef 
e) 
Ls 4 
& 
w 
= 
= 
w 
<= 
é 
~~» 
« 
. 
N 
= 
a 
> 
@ 
” 
o 
. ce 
2s ° 
. 
owuoc ta) ze = = « 
ac Oo _ > > > 
t ws =a ow wa a) 1 i . 
” <<a oe Ww = Oo wea w w J 
Y= OQ w a o « w © w w <= 
w>oa + z= = w rcww cw cen = 
c< <- ww wow ” . u0ow nue “uO & 
Qw to tt a ~ f a OP & Oo 
fweaoc ax ._ == o =< = wx 8 xs 2 
ot x<Neer FE VL Zo YMnv YOMLMW a~ow 6 
VCuw gw wr ~ ~eno>rt~ewaod Tsa> # 
PARAK— + -—F XK OC oO §ONMe &- RAE em x 
=<K=xKZO esx YS NAT = s@ s€@a7 QU sf wwe eewrwu 
VVON— TZ VHOMHVNOSBHOR.O-KYWF OC *B~w— COWL 
QaoVRB BOT BNF MEBBTBH “VODA ~BReEww~k® 
> w J 2 t=] 
=¢ La] > 3s SImVdaw woouw aw) 
KQygsss3 SC NIT IITyuyverIawn Foon 
2r>rar>rOOEY> SIGMA JOTMOMH UO HH UBS > 
WwOOKKOVGw>OOw Dea—D<4 YIODFD es Uw Det Ow 
*EFaFtFTOOC@OTT MA eOoAaAvMowaavoMewaaoOveia 
a ee cad fe oe 
_ ~N nal rw oO 
OOF Oe COUN LWOMDOLMOO Vue Sr OO WMIND OWOr 
BW i NINN NICE ST ST TT TMM OO 
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50 000000006 


6 
8 
66 
09 


55 
50 


104 bytes, Routine Base: S$CODE$ + O3AC 


; Routine Size: 


OE ONT RESS 


: 38? 


32 
R: 


o= 
~1 


dcxScompress_done -- Release data compression c 1§-$ep-1984 $3; 14; 3 i C 


END ! Of module compress 
eae 0 ELUDOM : 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 1044 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
esascese Jyabel§ coocece Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 11 0 581 00:00.9 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:COMPRESS/OBJ=OBJ$: COMPRESS MSRC$: COMPRESS/UPDATE=(ENHS$: COMPRESS) 


; Size: 
Run Time 
fleeces tee < 
Lines/CPU Min: $3 ? 
Lexemes/CPU-Min: 23734 


Memor 
meet A, 


Used: 
ion Complete 


1044 code + 0 data bytes 


151 pages 


i SRC COMPRESS. 832: yee 
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